MacAdvocate 2/MACADVCT.ISO/mac/Goodies/Fun Stuff/Utilities/UltraFind/AppleScript™ Examples/UTF Get Version

Text File | 1996-03-15 | 1.3 KB | 37 lines | [TEXT/ToyS]

copy (the version of application "UltraFind 2.2") to currentVersion
if currentVersion is less than "2.1.2" then
    display dialog "To run this script you need version 2.1.2 or greater of UltraFind" & return & return & ┬
        "The Current version of UltraFind is only " & currentVersion buttons "Cancel"
else
    tell application "UltraFind 2.2"
        clear
        set the text of fileName of its searchRoutine to "SimpleText"
        set the fileType of its searchRoutine to "APPL"
        scan
    end tell

    copy the result to numFiles

    if numFiles is greater than 0 then
        repeat with fileNum from 1 to numFiles

            tell application "UltraFind 2.2"
                copy (the fileName of fileRecord fileNum) to fName
                copy (the fileCreator of fileRecord fileNum) to fCreator
                copy (the fileType of fileRecord fileNum) to fType
                copy (the version of fileRecord fileNum) to fVersion
                if fVersion is equal to "" then set fVersion to "N/A"
                copy (the accessPath of fileRecord fileNum) to fPath
            end tell

            display dialog "Found file " & (fileNum as text) & " of " & (numFiles as text) & return & return & ┬
                "Filename : " & fName & return & ┬
                "Creator   : '" & fCreator & "'" & return & ┬
                "Type        : '" & fType & "'" & return & return & ┬
                "Version   : '" & fVersion & "'" & return & ┬
                "Where :" & return & return & fPath
        end repeat
    end if
end if